perm filename DMS[NEW,LCS] blob sn#550333 filedate 1980-12-10 generic text, type T, neo UTF8
  1) MS.F4[NEW,LCS] and 2) UDP:MS.F4[MS,LCS]	12-10-80 09:32	pages 1,1

**** File 1) MS.F4[NEW,LCS]/1P/1L
1)	COMMENT āŠ—   VALID 00004 PAGES
1)	C REC  PAGE   DESCRIPTION
1)	C00001 00001
1)	C00002 00002	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
1)	C00032 00003
1)	C00050 00004	1860	J2=R2
1)	C00067 ENDMK
1)	CāŠ—;
1)	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
**** File 2) UDP:MS.F4[MS,LCS]/1P/1L
2)	C  ********** DISPLAYS MUSIC AND DRAWS IT ON THE PLOTTER **********
***************


**** File 1) MS.F4[NEW,LCS]/2P/110L
1)	C11/80	IF(IGO)CALL DPYDO(1)
1)	      	IF(IGO)CALL DPYDO(1)
1)	C12/80	IF(IGO.LT.0.AND.X22.EQ.0)CALL DPYDO(1)
1)	C DPYOUT DONE IN 'BOX' IF CURSOR IS TO APPEAR ALSO.
1)	80	ITEM=ITEM+1
**** File 2) UDP:MS.F4[MS,LCS]/1P/110L
2)	        IF(IGO)CALL DPYDO(1)
2)	80	ITEM=ITEM+1
***************


**** File 1) MS.F4[NEW,LCS]/3P/107L
1)		IF(I2.EQ.LZZ)GO TO 1370
1)	C PIZZ
1)		R5=42
**** File 2) UDP:MS.F4[MS,LCS]/2P/107L
2)		R5=42
***************


**** File 1) MS.F4[NEW,LCS]/3P/117L
1)		IF(I3.EQ.IBLA)GO TO 880
**** File 2) UDP:MS.F4[MS,LCS]/2P/115L
2)		IF(I2.EQ.LZZ)GO TO 1370
2)	C PIZZ
2)		IF(I3.EQ.IBLA)GO TO 880
***************